<%

Function loading(id_imagem)

	DIM img

	Select Case id_imagem
	
		Case 1
			
			img = "loader_pequeno.gif"
			
		Case 2
			
			img = "loader_medio.gif"
			
		Case 3
			
			img = "loader_grande.gif"
			
	End Select

	response.Write("<img class='loader' title='Carregando...' src='interface/imagens/"&img&"'>")

End Function

Function imagem(url, div, largura, altura)
%>
			<script type="text/javascript">

				var imagem = new loadImage(<%=largura%>, <%=altura%>, "<%=url%>", "<%=div%>");

			</script>
<%
End Function

%>